home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
compuserve-file-archive
/
16 Vendor Support
/
80COL.BIN
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
4KB
|
104 lines
10 GOTO2015
15 POKE56,32:POKE55,.
20 CLR:Z$=CHR$(.):M$=CHR$(13)
22 GOSUB900
24 PRINT"[147][142]"
25 PRINT"ENTER DEVICE # OF SOURCE DRIVE."
30 PRINT"(ENTER 0 TO EXIT.)"
35 PRINT" 8[145]":INPUTD:IFD=.THENGOSUB800:END
40 IFD<4ORD>30THENPRINT"[147]ILLEGAL DEVICE NUMBER":GOTO25
45 POKE2,36:POKE184,8:POKE185,0:POKE186,D
50 POKE183,1:POKE187,2:POKE188,.:SYS65472
55 CLOSE8:IFPEEK(144)THENPRINT"[147]?DEVICE";D;"[157] NOT PRESENT":GOTO25
57 OPEN15,D,15:Y=15:GOSUB500:IFA>19THENCLOSE15:GOTO25
60 PRINT"[147]";
65 PRINT"PRESS D FOR DIRECTORY."
70 PRINT"PRESS S TO START OVER."
75 PRINT"PRESS F TO ENTER TEXT FILENAME."
80 GETA$:IFA$="D"THENOPEN8,D,0,"$":SYS49152:PRINT"[147]";:GOTO65
85 IFA$="S"THENPRINT"[147]":CLOSE15:GOTO25
90 IFA$="F"THENPRINT"[147]";:GOTO100
95 GOTO80
100 PRINT"ENTER FILENAME."
102 PRINT"(PRESS RETURN TO START OVER.)"
105 F$="":INPUTF$:IFF$=""THENCLOSE15:PRINT:GOTO25
110 OPEN8,D,8,F$:Y=15:GOSUB500
115 IFA>19THENCLOSE8:GOTO100
120 GOSUB600
125 PRINT"[147]"
130 PRINT"ENTER DEVICE # OF DESTINATION DRIVE."
135 PRINT"(ENTER 0 TO START OVER.)"
140 PRINT" 8[145]":INPUTE:IFE=.THENGOSUB805:PRINT:GOTO25
145 IFE<4ORE>30THENPRINT"[147]ILLEGAL DEVICE NUMBER":GOTO130
150 POKE251,36:POKE252,36:POKE184,9:POKE185,0:POKE186,E
155 POKE183,2:POKE187,251:POKE188,.:SYS65472
160 IFPEEK(144)THENPRINT"[147]?DEVICE";E;"[157] NOT PRESENT":CLOSE9:GOTO130
165 OPEN16,E,15:Y=16:GOSUB500:IFA>19THENCLOSE9:CLOSE16:GOTO130
170 PRINT"[147]0 ";
175 FORI=1TO6:GET#9,A$:NEXT
180 GET#9,A$:IFA$=""THENPRINT:GOTO190
185 PRINTA$;:GOTO180
190 GET#9,A$:GET#9,A$
195 GET#9,A$:K=ASC(A$+Z$)
200 GET#9,A$:K=K+256*ASC(A$+Z$)
205 PRINT"[157]";K;
210 GET#9,A$:PRINTA$;:IFSTTHEN220
215 GOTO210
220 CLOSE9:PRINT:PRINT"SOURCE FILENAME: ";F$
225 PRINT"[157]";N;"BLOCKS"
230 IFN>KTHENPRINT"NOT ENOUGH ROOM ON DISK":CLOSE16:GOTO130
235 PRINT"ENTER DESTINATION FILENAME."
240 PRINT"(ENTER * FOR SAME FILENAME.)"
242 PRINT"(PRESS RETURN TO REENTER DEVICE #.)"
245 G$="":INPUTG$:IFG$=""THENCLOSE16:PRINT:GOTO130
247 IFG$="*"THENG$=F$
250 OPEN9,E,9,G$+",W":Y=16:GOSUB500
255 IFA>19THENCLOSE9:GOTO235
260 PRINT"[147]SOURCE FILENAME: ";F$
265 PRINT"DESTINATION FILENAME: ";G$
270 PRINT"[157]";N;"BLOCKS TO PROCESS"
275 PRINT"STARTING OPERATION..."
280 PRINT" READING WRITING"
285 PRINT" [163][163][163][163][163][163][163] [163][163][163][163][163][163][163]"
290 PRINT" 000 000"
292 POKE51199,32
295 SYS49371
300 PRINT"...DONE.":GOTO25
500 INPUT#Y,A,B$,C,Z
505 IFA<20THEN515
510 PRINT:PRINTA:PRINT:PRINTB$:PRINT:PRINTC,Z:PRINT
515 RETURN
600 PRINT#15,"M-R";CHR$(144);CHR$(2);CHR$(5)
605 GET#15,A$:S=ASC(A$+Z$)
610 GET#15,A$:GET#15,A$:GET#15,A$
615 GET#15,A$:P=ASC(A$+Z$)
620 OPEN5,D,5,"#"
625 PRINT#15,"U1:";5;0;18;S
630 PRINT#15,"B-P";5;P+28
635 GET#5,A$:N=ASC(A$+Z$)
640 GET#5,A$:N=N+256*ASC(A$+Z$)
645 PRINT#15,"B-P";5;P+3
650 I=.:F$=""
655 GET#5,A$
660 IFI=16ORA$="[160]"THENCLOSE5:RETURN
665 F$=F$+A$:I=I+1:GOTO655
800 POKE56,160
805 CLOSE15:CLOSE16:CLOSE8:CLOSE9:RETURN
900 PRINT"[147][212]HIS PROGRAM IS FOR AN [193][211][195][201][201] (NOT"
905 PRINT"[208][197][212][193][211][195][201][201]) TEXT FILE. [201]T WILL FORMAT IT"
910 PRINT"FOR 80 COLUMNS, ENDING EACH LINE WITH A"
915 PRINT"[195][210]/[204][198] PAIR. [201]F YOU USE THE SAME DRIVE"
920 PRINT"FOR SOURCE AND DESTINATION, THE MAXIMUM"
925 PRINT"SIZE FOR THE SOURCE FILE IS ABOUT 332"
930 PRINT"BLOCKS (APPROXIMATELY 82 [203]). [215]ITH TWO"
935 PRINT"DRIVES, THAT NUMBER IS DOUBLED."
940 PRINT" [[208][210][197][211][211] [210][197][212][213][210][206]][146]";
945 GETA$:IFA$=M$THENRETURN
950 GOTO945
2015 POKE56,99:PRINT"[147][142]ONE MOMENT PLEASE..."
2020 P=PEEK(45)+256*PEEK(46)-1
2025 IFPEEK(P)THENP=P-1:GOTO2025
2030 P=P-886:S=49152
2035 FORI=.TO886:POKES+I,PEEK(P+I):NEXT
2040 POKE2054,48:GOTO15